home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / 131abas.arc / EXITRBBS.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-09-30  |  1.7 KB  |  30 lines
  1. 1000 ' Program Name -- EXITRBBS
  2. 1010 ' Author -------- D. Thomas Mack
  3. 1020 ' Description:
  4. 1030 ' When exiting from RBBS-PC.EXE to either DOS (as a remote SYSOP)
  5. 1040 ' or to a "DOOR", it is necessary to
  6. 1050 '   1.  Keept the carrier up on the communications port so that
  7. 1060 '       the user is not disconnected, and
  8. 1070 '   2.  Clear the current contents of memory (i.e. terminating
  9. 1080 '       RBBR-PC.EXE) so that the user can have access to all
  10. 1090 '       available memory.
  11. 1100 ' This was accomplished with Version 1.0 of the BASIC compiler
  12. 1110 ' by issuing the SYSTEM command which closed all files that were
  13. 1120 ' still open.  RBBS-PC closed the communication file and kept
  14. 1140 ' carrier up by keeping the DTR bit (Data Terminal Ready) on
  15. 1150 ' in the MCR (modem control register) after the communications
  16. 1165 ' file was closed and prior to issuing the SYSTEM command.
  17. 1166 ' Regretably, beginning with Version 2.0 of the BASIC compiler,
  18. 1170 ' the SYSTEM command closes ALL files (even the closed comm-
  19. 1180 ' unications file) and, in so closing, causes the carrier to
  20. 1190 ' to drop.  Therefore, with Version 2.0 of the BASIC compiler
  21. 1200 ' RBBS-PC.EXE "RUN"s to EXITRBBS because the RUN command only
  22. 1210 ' closes the files that are still open (leaving the closed comm-
  23. 1220 ' unications file untouched and with carrier still up).  EXITRBBS
  24. 1230 ' in turn issues the SYSTEM command so that it is cleared from
  25. 1240 ' memory and DOS will continue processing the ".BAT" file that
  26. 1250 ' was first used to invoke RBBS-PC and which checks for the
  27. 1260 ' .BAT file that is dynamically built for "doors" and exits by
  28. 1270 ' remote SYSOP's to DOS (i.e. RCTTY.BAT).
  29. 1280 SYSTEM
  30.